home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windows News 2006 October
/
wn148cd2.iso
/
Windows
/
Travailler
/
QuickZip
/
quickzip_460013.exe
/
{app}
/
Scripts
/
File
/
Add to Zip(floppy).akp
next >
Wrap
Text File
|
2003-01-05
|
425b
|
16 lines
var ParamList : TStrings;
i : integer;
k,zipfilename : string;
begin
ParamList := Param;
k := temppath+'Floppy\';
MakeDir(k);
DelFile(k+'floppy.zip');
open(k+'floppy.zip');
for i := 0 to ParamList.count -1 do
add(Paramlist.strings[i]);
DoAdd;
Close;
zipfilename := AskFilenameDialog('a:\'+ExtractFilename(ParamList.strings[0]) + '.zip','Zip Archive|*.zip');
MoveFile(k+'floppy.zip',zipfilename);
end.